home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontsh13 / fs_prmsg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-17  |  1.6 KB  |  57 lines
  1. VERSION 2.00
  2. Begin Form FS_PRMSG 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Printing"
  6.    ClientHeight    =   1650
  7.    ClientLeft      =   4215
  8.    ClientTop       =   3675
  9.    ClientWidth     =   3210
  10.    ControlBox      =   0   'False
  11.    Height          =   2055
  12.    Left            =   4155
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1650
  17.    ScaleWidth      =   3210
  18.    Top             =   3330
  19.    Width           =   3330
  20.    Begin SSCommand CmdCancelPrint 
  21.       Caption         =   "Cancel"
  22.       ForeColor       =   &H00000080&
  23.       Height          =   492
  24.       Left            =   960
  25.       TabIndex        =   1
  26.       Top             =   960
  27.       Width           =   1332
  28.    End
  29.    Begin TextBox TxtPrintMsg 
  30.       Alignment       =   2  'Center
  31.       BackColor       =   &H00800080&
  32.       BorderStyle     =   0  'None
  33.       FontBold        =   -1  'True
  34.       FontItalic      =   0   'False
  35.       FontName        =   "System"
  36.       FontSize        =   9.75
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       ForeColor       =   &H00FFFFFF&
  40.       Height          =   624
  41.       Left            =   240
  42.       MultiLine       =   -1  'True
  43.       TabIndex        =   0
  44.       Top             =   120
  45.       Width           =   2772
  46.    End
  47. Sub CmdCancelPrint_Click ()
  48.     ContPrint = False
  49. End Sub
  50. Sub Command3D1_Click ()
  51.     ContPrint = False
  52. End Sub
  53. Sub Form_Load ()
  54.     Left = (Screen.Width - Width) / 2
  55.     Top = (Screen.Height - Height) / 2
  56. End Sub
  57.